home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib13.dsk / HPLOT ANIM LISTING 3.bas < prev    next >
BASIC Source File  |  2023-02-26  |  472b  |  8 lines
  1. 90 SHAPE = 147:INCR = 4
  2. 100  HGR : HPLOT 50,50 TO 50,60: HGR2 : POKE 251,SHAPE: POKE 207,INCR: REM  CLEAR BOTH PAGES-SET UP SHAPE# AND INCREMENT
  3. 110  IF  PEEK(37636) + PEEK(37637) *256 > = (279 -INCR)  THEN 150: REM  TEST FOR RIGHT EDGE OF SCREEN
  4. 120  CALL 38312: REM  CALL FLIPR1 ROUTINE
  5. 130  GOTO 110
  6. 140  IF  PEEK(37633) + PEEK(37634) *256 < = (0 +INCR)  THEN 120: REM  TEST FOR LEFT EDGE OF SCREEN
  7. 150  CALL 38356: REM  CALL FLIPL1
  8. 160  GOTO 140: REM  KEEP MOVING LEFT